/*===========================================================================*/
/*   (two.scm)                                                               */
/*   Bigloo (3.2a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Dec 4 09:25:50 CET 2008         */
/*===========================================================================*/
/* COMPILATION: (bigloo -cg -q -afile .afile -gbdb -c two.scm -o two.o)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <GL/glfw.h>
#include <GL/gl.h>
#include <GL/glu.h>

#ifdef __cplusplus
extern "C" {
#endif

/* Object type definitions */
typedef struct BgL_szd2quadriczd2_bgl {
   header_t header;
   obj_t widening;
   GLUquadric * BgL_gluzd2quadriczd2;
} *BgL_szd2quadriczd2_bglt;


static obj_t BGl__szd2quadriczd2gluzd2quadriczd2zzonez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_za2za2zz__r4_numbers_6_5z00(obj_t);
BGL_IMPORT obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
BGL_IMPORT obj_t BGl_zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_structzd2setz12zc0zz__structurez00(obj_t, int, obj_t);
static BgL_szd2quadriczd2_bglt BGl_fillzd2szd2quadricz12z12zzonez00(BgL_szd2quadriczd2_bglt, GLUquadric *);
BGL_IMPORT bool_t BGl_zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl_z52thezd2szd2quadriczd2nilz80zzonez00 = BUNSPEC;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
static bool_t BGl_szd2GLUquadricza2zf3z83zzonez00(obj_t);
extern void glVertex3f(GLfloat, GLfloat, GLfloat);
BGL_IMPORT double BGl_sinz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_genzd2szd2quadricz00zzonez00();
static BgL_szd2quadriczd2_bglt BGl_z52allocatezd2szd2quadricz52zzonez00();
extern void glfwTerminate();
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl__szd2quadriczd2finaliza7erza7zzonez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mainz00zzonez00(obj_t);
static obj_t BGl_cnstzd2initzd2zzonez00();
BGL_IMPORT obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT obj_t BGl_vectorz00zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_objectzd2ze3structzd2szd2qua1376z31zzonez00(obj_t, obj_t);
static obj_t BGl_szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00(BgL_szd2quadriczd2_bglt, GLUquadric *);
extern void glClear(GLbitfield);
extern GLUquadric * gluNewQuadric();
static GLUquadric * BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_szd2quadriczd2_bglt);
static BgL_szd2quadriczd2_bglt BGl_makezd2szd2quadricz00zzonez00(GLUquadric *);
static obj_t BGl_szd2quadriczd2zzonez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzonez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzfinaliza7eza7(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bdbz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bdb_envz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__foreignz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_structzb2objectzd2ze3objec1378z83zzonez00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzonez00();
BGL_IMPORT obj_t BGl_makezd2structzd2zz__structurez00(obj_t, int, obj_t);
static obj_t BGl__szd2quadriczd2nilz00zzonez00(obj_t);
static obj_t BGl_ourzd2loopzd2zzonez00();
extern void glfwSwapBuffers();
BGL_IMPORT obj_t BGl_objectzd2classzd2numzd2setz12zc0zz__objectz00(BgL_objectz00_bglt, long);
static bool_t BGl_szd2quadriczf3z21zzonez00(obj_t);
extern void glRotatef(GLfloat, GLfloat, GLfloat, GLfloat);
BGL_IMPORT obj_t BGl_bdbzd2setzd2modulezd2infoz12zc0zz__bdb_envz00(obj_t, obj_t);
static BgL_szd2quadriczd2_bglt BGl_szd2quadriczd2nilz00zzonez00();
extern void glPopMatrix();
extern obj_t BGl_registerzd2finaliza7erz12z67zzfinaliza7eza7(obj_t, obj_t);
BGL_IMPORT obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char *, char *);
extern void glMatrixMode(GLenum);
extern void gluSphere(GLUquadric *, GLdouble, GLint, GLint);
BGL_IMPORT bool_t BGl_foreignzf3zf3zz__foreignz00(obj_t);
BGL_EXPORTED_DECL obj_t bigloo_main(obj_t);
BGL_IMPORT obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT double BGl_cosz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_ourzd2drawzd2zzonez00();
static obj_t BGl_methodzd2initzd2zzonez00();
static obj_t BGl__mainz00zzonez00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
BGL_IMPORT obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_closez00zzonez00 = BUNSPEC;
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzonez00 = BUNSPEC;
static obj_t BGl__z52allocatezd2szd2quadricz52zzonez00(obj_t);
static obj_t BGl_genericzd2initzd2zzonez00();
BGL_IMPORT long BGl_bitzd2orzd2zz__bitz00(long, long);
BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
extern void glClearColor(GLclampf, GLclampf, GLclampf, GLclampf);
BGL_IMPORT obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t);
static obj_t BGl_szd2quadriczd2finaliza7erza7zzonez00(obj_t);
static obj_t BGl__szd2quadriczf3z21zzonez00(obj_t, obj_t);
extern void glBegin(GLenum);
static obj_t BGl__makezd2szd2quadricz00zzonez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_bigloozd2initializa7edz12z67zz__paramz00();
extern void glViewport(GLint, GLint, GLsizei, GLsizei);
extern double glfwGetTime();
extern void glPushMatrix();
extern void glEnd();
static obj_t BGl_importedzd2moduleszd2initz00zzonez00();
extern void glEnable(GLenum);
BGL_IMPORT long BGl_bitzd2andzd2zz__bitz00(long, long);
extern int glfwGetWindowParam(int);
extern void gluPerspective(GLdouble, GLdouble, GLdouble, GLdouble);
extern int glfwOpenWindow(int, int, int, int, int, int, int, int, int);
static obj_t BGl__szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00(obj_t, obj_t, obj_t);
extern void glDepthFunc(GLenum);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bdbzd2initzd2zzonez00();
extern int glfwGetKey(int);
BGL_IMPORT obj_t bgl_open_input_string(obj_t, int);
extern void glLoadIdentity();
BGL_IMPORT obj_t BGl_structzd2refzd2zz__structurez00(obj_t, int);
extern void gluDeleteQuadric(GLUquadric *);
extern void gluLookAt(GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble);
extern void glTranslatef(GLfloat, GLfloat, GLfloat);
BGL_IMPORT bool_t BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(long, long);
extern int glfwInit();
static obj_t BGl_objectzd2initzd2zzonez00();
extern void gluCylinder(GLUquadric *, GLdouble, GLdouble, GLdouble, GLint, GLint);
static obj_t BGl_libraryzd2moduleszd2initz00zzonez00();
extern void glColor3f(GLfloat, GLfloat, GLfloat);
static obj_t __cnst[ 15 ] ;


DEFINE_STATIC_BGL_PROCEDURE( BGl_szd2quadriczd2finaliza7erzd2envz75zzonez00, BgL_bgl__sza7d2quadricza7d2f1931z00, BGl__szd2quadriczd2finaliza7erza7zzonez00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_proc1902z00zzonez00, BgL_bgl_objectza7d2za7e3stru1932z00, BGl_objectzd2ze3structzd2szd2qua1376z31zzonez00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_proc1903z00zzonez00, BgL_bgl_structza7b2objectza71933z00, BGl_structzb2objectzd2ze3objec1378z83zzonez00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string1900z00zzonez00, BgL_bgl_string1900za700za7za7o1934za7, "float", 5 );
DEFINE_STRING( BGl_string1890z00zzonez00, BgL_bgl_string1890za700za7za7o1935za7, "s-quadric", 9 );
DEFINE_STRING( BGl_string1889z00zzonez00, BgL_bgl_string1889za700za7za7o1936za7, "foreign", 7 );
DEFINE_STRING( BGl_string1901z00zzonez00, BgL_bgl_string1901za700za7za7o1937za7, "s-GLUquadric*", 13 );
DEFINE_STRING( BGl_string1891z00zzonez00, BgL_bgl_string1891za700za7za7o1938za7, "/home/deep/programs/scheme/new/bigloo-graphics/trunk/examples/1-glfw-inbuilt-example/two.scm", 92 );
DEFINE_STRING( BGl_string1904z00zzonez00, BgL_bgl_string1904za700za7za7o1939za7, "struct", 6 );
DEFINE_STRING( BGl_string1905z00zzonez00, BgL_bgl_string1905za700za7za7o1940za7, "one", 3 );
DEFINE_STRING( BGl_string1895z00zzonez00, BgL_bgl_string1895za700za7za7o1941za7, "double", 6 );
DEFINE_STRING( BGl_string1906z00zzonez00, BgL_bgl_string1906za700za7za7o1942za7, "object->struct-s-qua1376 struct+object->objec1378 _s-quadric-glu-quadric _s-quadric-glu-quadric-set! s-quadric-nil _make-s-quadric (gluNewQuadric) glu-quadric s-quadric do-loop--1373 our-draw s-quadric-finalizer bs-GLUquadric* s-GLUquadric*? one ", 246 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_makezd2szd2quadriczd2envzd2zzonez00, BgL_bgl__makeza7d2sza7d2quad1943z00, BGl__makezd2szd2quadricz00zzonez00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_szd2quadriczd2gluzd2quadriczd2setz12zd2envzc0zzonez00, BgL_bgl__sza7d2quadricza7d2g1944z00, BGl__szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00, 0L, BUNSPEC, 2 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_STATIC_BGL_PROCEDURE( BGl_szd2quadriczf3zd2envzf3zzonez00, BgL_bgl__sza7d2quadricza7f3za71945za7, BGl__szd2quadriczf3z21zzonez00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mainzd2envzd2zzonez00, BgL_bgl__mainza700za7za7oneza7001946z00, BGl__mainz00zzonez00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_szd2quadriczd2gluzd2quadriczd2envz00zzonez00, BgL_bgl__sza7d2quadricza7d2g1947z00, BGl__szd2quadriczd2gluzd2quadriczd2zzonez00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_szd2quadriczd2nilzd2envzd2zzonez00, BgL_bgl__sza7d2quadricza7d2n1948z00, BGl__szd2quadriczd2nilz00zzonez00, 0L, BUNSPEC, 0 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_z52allocatezd2szd2quadriczd2envz80zzonez00, BgL_bgl__za752allocateza7d2s1949z00, BGl__z52allocatezd2szd2quadricz52zzonez00, 0L, BUNSPEC, 0 );
DEFINE_REAL( BGl_real1892z00zzonez00, BgL_bgl_real1892za700za7za7one1950za7, 0.5 );
DEFINE_REAL( BGl_real1893z00zzonez00, BgL_bgl_real1893za700za7za7one1951za7, 30.0 );
DEFINE_REAL( BGl_real1894z00zzonez00, BgL_bgl_real1894za700za7za7one1952za7, 50.0 );
DEFINE_REAL( BGl_real1896z00zzonez00, BgL_bgl_real1896za700za7za7one1953za7, 0.3 );
DEFINE_REAL( BGl_real1897z00zzonez00, BgL_bgl_real1897za700za7za7one1954za7, 20.0 );
DEFINE_REAL( BGl_real1898z00zzonez00, BgL_bgl_real1898za700za7za7one1955za7, 4.0 );
DEFINE_REAL( BGl_real1899z00zzonez00, BgL_bgl_real1899za700za7za7one1956za7, 10.0 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;



/* bdb association table */
static struct bdb_fun_info {
   char *sname, *cname;
} __bdb_info[] = { 
   /* Magic number to ensure comp/dbg compatibility */
   {(char *)4132, (char *)4132},
   /* Module and source file identification */
   {"one", "BGl_toplevelzd2initzd2zzonez00" },
   {"two.scm", 0 },
   { 0, (char *)1 },
   /* Global functions */
   {"two.scm", (char *)1 },
   {"toplevel-init", 0},
   {0, "BGl_toplevelzd2initzd2zzonez00"},
     {0, 0},
   {"two.scm", (char *)13 },
   {"s-quadric-finalizer", 0},
   {"BGl_szd2quadriczd2finaliza7erzd2envz75zzonez00", "BGl_szd2quadriczd2finaliza7erza7zzonez00"},
     {"obj", "BgL_objz00_403"},
     {0, 0},
   {"two.scm", (char *)13 },
   {"_s-quadric-finalizer", 0},
   {"BGl_szd2quadriczd2finaliza7erzd2envz75zzonez00", "BGl__szd2quadriczd2finaliza7erza7zzonez00"},
     {"obj", "BgL_objz00_739"},
     {0, 0},
   {"two.scm", (char *)16 },
   {"gen-s-quadric", 0},
   {0, "BGl_genzd2szd2quadricz00zzonez00"},
     {"val", "BgL_valz00_615"},
     {0, 0},
   {"two.scm", (char *)23 },
   {"our-draw", 0},
   {0, "BGl_ourzd2drawzd2zzonez00"},
     {"t", "BgL_tz00_617"},
     {"field_of_view", "BgL_field_of_viewz00_618"},
     {"quadric", "BgL_quadricz00_619"},
     {"camera_x", "BgL_camera_xz00_620"},
     {"camera_z", "BgL_camera_za7za7_621"},
     {"camera_y", "BgL_camera_yz00_622"},
     {0, 0},
   {"two.scm", (char *)96 },
   {"our-loop", 0},
   {0, "BGl_ourzd2loopzd2zzonez00"},
     {"count", "BgL_countz00_692"},
     {0, 0},
   {"two.scm", (char *)105 },
   {"main", 0},
   {"BGl_mainzd2envzd2zzonez00", "BGl_mainz00zzonez00"},
     {"argc", "BgL_argcz00_404"},
     {0, 0},
   {"two.scm", (char *)105 },
   {"_main", 0},
   {"BGl_mainzd2envzd2zzonez00", "BGl__mainz00zzonez00"},
     {"argc", "BgL_argcz00_741"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"s-quadric?", 0},
   {"BGl_szd2quadriczf3zd2envzf3zzonez00", "BGl_szd2quadriczf3z21zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"_s-quadric?", 0},
   {"BGl_szd2quadriczf3zd2envzf3zzonez00", "BGl__szd2quadriczf3z21zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"make-s-quadric", 0},
   {"BGl_makezd2szd2quadriczd2envzd2zzonez00", "BGl_makezd2szd2quadricz00zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"_make-s-quadric", 0},
   {"BGl_makezd2szd2quadriczd2envzd2zzonez00", "BGl__makezd2szd2quadricz00zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"fill-s-quadric!", 0},
   {0, "BGl_fillzd2szd2quadricz12z12zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"%allocate-s-quadric", 0},
   {"BGl_z52allocatezd2szd2quadriczd2envz80zzonez00", "BGl_z52allocatezd2szd2quadricz52zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"_%allocate-s-quadric", 0},
   {"BGl_z52allocatezd2szd2quadriczd2envz80zzonez00", "BGl__z52allocatezd2szd2quadricz52zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"s-quadric-nil", 0},
   {"BGl_szd2quadriczd2nilzd2envzd2zzonez00", "BGl_szd2quadriczd2nilz00zzonez00"},
     {0, 0},
   {"two.scm", (char *)7 },
   {"_s-quadric-nil", 0},
   {"BGl_szd2quadriczd2nilzd2envzd2zzonez00", "BGl__szd2quadriczd2nilz00zzonez00"},
     {0, 0},
   {"two.scm", (char *)8 },
   {"s-quadric-glu-quadric-set!", 0},
   {"BGl_szd2quadriczd2gluzd2quadriczd2setz12zd2envzc0zzonez00", "BGl_szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00"},
     {0, 0},
   {"two.scm", (char *)8 },
   {"_s-quadric-glu-quadric-set!", 0},
   {"BGl_szd2quadriczd2gluzd2quadriczd2setz12zd2envzc0zzonez00", "BGl__szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00"},
     {0, 0},
   {"two.scm", (char *)8 },
   {"s-quadric-glu-quadric", 0},
   {"BGl_szd2quadriczd2gluzd2quadriczd2envz00zzonez00", "BGl_szd2quadriczd2gluzd2quadriczd2zzonez00"},
     {0, 0},
   {"two.scm", (char *)8 },
   {"_s-quadric-glu-quadric", 0},
   {"BGl_szd2quadriczd2gluzd2quadriczd2envz00zzonez00", "BGl__szd2quadriczd2gluzd2quadriczd2zzonez00"},
     {0, 0},
   /* Global variables */
   {"two.scm", (char *)7 },
   {"s-quadric", "BGl_szd2quadriczd2zzonez00"},
   {"two.scm", (char *)22 },
   {"close", "BGl_closez00zzonez00"},
   {0, 0},
   /* Bigloo classes */
   {"struct BgL_szd2quadriczd2_bgl *", 0 },
   0};


#line 1 "two.scm"
long bigloo_abort(long n) { return n; }

#line 1 "two.scm"
int BIGLOO_MAIN(int argc, char *argv[], char *env[])
{extern long heap_size; heap_size = 1;
return _bigloo_main(argc, argv, env, &bigloo_main);}



/* module-initialization */
#line 1 "two.scm"
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzonez00(long BgL_checksumz00_915, char * BgL_fromz00_916){ AN_OBJECT;
#line 1 "two.scm"
{ 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
bool_t BgL_test1915z00_917;
#line 1 "two.scm"
{ 
#line 1 "two.scm"
obj_t BgL_arg1921z00_919 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_arg1921z00_919 = 
#line 1 "two.scm"
BINT(
BGl_bitzd2andzd2zz__bitz00(BgL_checksumz00_915, ((long)217195151))); 
#line 1 "two.scm"
BgL_test1915z00_917 = 
#line 1 "two.scm"
BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(
#line 1 "two.scm"
(long)CINT(BgL_arg1921z00_919), BgL_checksumz00_915); } 
#line 1 "two.scm"
if(BgL_test1915z00_917)
#line 1 "two.scm"
{ 
#line 1 "two.scm"
if(
#line 1 "two.scm"
CBOOL(BGl_requirezd2initializa7ationz75zzonez00))
#line 1 "two.scm"
{ 
#line 1 "two.scm"
BGl_requirezd2initializa7ationz75zzonez00 = 
#line 1 "two.scm"
BBOOL(((bool_t)0)); 
#line 1 "two.scm"
BGl_libraryzd2moduleszd2initz00zzonez00(); 
#line 1 "two.scm"
BGl_cnstzd2initzd2zzonez00(); 
#line 1 "two.scm"
BGl_bdbzd2initzd2zzonez00(); 
#line 1 "two.scm"
BGl_importedzd2moduleszd2initz00zzonez00(); 
#line 1 "two.scm"
BGl_objectzd2initzd2zzonez00(); 
#line 1 "two.scm"
BGl_genericzd2initzd2zzonez00(); 
#line 1 "two.scm"
BGl_methodzd2initzd2zzonez00(); 
#line 1 "two.scm"
BGl_toplevelzd2initzd2zzonez00(); 
#line 1 "two.scm"
return BUNSPEC;}  else 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
return BUNSPEC;} }  else 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
char * BgL_sz00_918;
#line 1 "two.scm"
BgL_sz00_918 = 
#line 1 "two.scm"
"one"; 
#line 1 "two.scm"
return 
#line 1 "two.scm"
BGl_modulezd2initzd2errorz00zz__errorz00(BgL_sz00_918, BgL_fromz00_916);} } } 
#line 1 "two.scm"
}


/* bigloo_main */
#line 1 "two.scm"
BGL_EXPORTED_DEF obj_t bigloo_main(obj_t BgL_argvz00_920){ AN_OBJECT;
#line 1 "two.scm"
{ 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zzonez00(((long)0), "one"); 
#line 1 "two.scm"
BGl_bigloozd2initializa7edz12z67zz__paramz00(); 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
obj_t BgL_arg1930z00_921 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_arg1930z00_921 = 
#line 1 "two.scm"
BGl_mainz00zzonez00(BgL_argvz00_920); 
#line 1 "two.scm"
return 
#line 1 "two.scm"
BIGLOO_EXIT(BgL_arg1930z00_921);} } 
#line 1 "two.scm"
}


/* library-modules-init */
#line 1 "two.scm"
obj_t BGl_libraryzd2moduleszd2initz00zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__structurez00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__bdb_envz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__foreignz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__bitz00(((long)0), "one"); 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zz__bdbz00(((long)0), "one"); 
#line 1 "two.scm"
return BUNSPEC;} 
#line 1 "two.scm"
}


/* cnst-init */
#line 1 "two.scm"
obj_t BGl_cnstzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_cportz00_907 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_cportz00_907 = 
#line 1 "two.scm"
bgl_open_input_string(BGl_string1906z00zzonez00, 
#line 1 "two.scm"
(int)(((long)0))); 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
long BgL_iz00_908;
#line 1 "two.scm"
BgL_iz00_908 = ((long)14); 
#line 1 "two.scm"
BgL_loopz00_909:
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
bool_t BgL_test1907z00_910;
#line 1 "two.scm"
BgL_test1907z00_910 = 
#line 1 "two.scm"
(BgL_iz00_908==((long)-1)); 
#line 1 "two.scm"
if(BgL_test1907z00_910)
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
return BUNSPEC;}  else 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_arg1914z00_911 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"

#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_iportz00_912 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_iportz00_912 = BgL_cportz00_907; 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_locationz00_913 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_locationz00_913 = 
#line 1 "two.scm"
BBOOL(((bool_t)0)); 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"

#line 1 "two.scm"
BgL_arg1914z00_911 = 
#line 1 "two.scm"
BGl_readz00zz__readerz00(BgL_iportz00_912, BgL_locationz00_913); } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int BgL_auxz00_962;
#line 1 "two.scm"
BgL_auxz00_962 = 
#line 1 "two.scm"
(int)(BgL_iz00_908); 
#line 1 "two.scm"
CNST_TABLE_SET(BgL_auxz00_962, BgL_arg1914z00_911); } } 
#line 1 "two.scm"
; } 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
int BgL_auxz00_914;
#line 1 "two.scm"
BgL_auxz00_914 = 
#line 1 "two.scm"
(int)(
(BgL_iz00_908-((long)1))); 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
long BgL_iz00_967;
#line 1 "two.scm"
BgL_iz00_967 = 
#line 1 "two.scm"
(long)(BgL_auxz00_914); 
#line 1 "two.scm"
BgL_iz00_908 = BgL_iz00_967; 
#line 1 "two.scm"
goto BgL_loopz00_909;} 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } } } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
}


/* bdb-init */
#line 1 "two.scm"
obj_t BGl_bdbzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_arg1887z00_905 = ((obj_t )BUNSPEC);obj_t BgL_arg1888z00_906 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_arg1887z00_905 = 
#line 1 "two.scm"
CNST_TABLE_REF(((long)0)); 
#line 1 "two.scm"
BgL_arg1888z00_906 = 
#line 1 "two.scm"
((obj_t)__bdb_info); 
#line 1 "two.scm"
return 
#line 1 "two.scm"
BGl_bdbzd2setzd2modulezd2infoz12zc0zz__bdb_envz00(BgL_arg1887z00_905, BgL_arg1888z00_906);} 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
}


/* s-GLUquadric*? */
#line 1 "two.scm"
bool_t BGl_szd2GLUquadricza2zf3z83zzonez00(obj_t BgL_oz00_371){ AN_OBJECT;
#line 1 "two.scm"
{ 
#line 1 "two.scm"
if(
#line 1 "two.scm"
BGl_foreignzf3zf3zz__foreignz00(BgL_oz00_371))
#line 1 "two.scm"
{ 
#line 1 "two.scm"
obj_t BgL_arg1511z00_583 = ((obj_t )BUNSPEC);obj_t BgL_arg1512z00_584 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
{ 
#line 1 "two.scm"
obj_t BgL_auxz00_974 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
{ 
#line 1 "two.scm"
obj_t BgL_aux1744z00_845 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_aux1744z00_845 = BgL_oz00_371; 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
bool_t BgL_test1745z00_846;
#line 1 "two.scm"
BgL_test1745z00_846 = 
#line 1 "two.scm"
FOREIGNP(BgL_aux1744z00_845); 
#line 1 "two.scm"
if(BgL_test1745z00_846)
#line 1 "two.scm"
{ 
#line 1 "two.scm"
BgL_auxz00_974 = BgL_aux1744z00_845
#line 1 "two.scm"
; }  else 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
BGl_bigloozd2typezd2errorz00zz__errorz00(
#line 1 "two.scm"
CNST_TABLE_REF(((long)1)), BGl_string1889z00zzonez00, BgL_aux1744z00_845); 
#line 1 "two.scm"
exit( -1 );} } } 
#line 1 "two.scm"
BgL_arg1511z00_583 = 
#line 1 "two.scm"
FOREIGN_ID(BgL_auxz00_974); } 
#line 1 "two.scm"
BgL_arg1512z00_584 = 
#line 1 "two.scm"
CNST_TABLE_REF(((long)2)); 
#line 1 "two.scm"
return 
#line 1 "two.scm"
BGl_eqzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1511z00_583, BgL_arg1512z00_584);}  else 
#line 1 "two.scm"
{ 
#line 1 "two.scm"
return ((bool_t)0);} } 
#line 1 "two.scm"
}


/* toplevel-init */
#line 1 "two.scm"
obj_t BGl_toplevelzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
bdb_s(); 
#line 22 "two.scm"
return ( 
#line 22 "two.scm"
BGl_closez00zzonez00 = BFALSE, BUNSPEC) ;} 
#line 22 "two.scm"
}


/* s-quadric-finalizer */
#line 1 "two.scm"
obj_t BGl_szd2quadriczd2finaliza7erza7zzonez00(obj_t BgL_objz00_403){ AN_OBJECT;
#line 13 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 13 "two.scm"
{ /* two.scm 13 */
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 14 "two.scm"
GLUquadric * BgL_arg1540z00_614;
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_984 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 14 "two.scm"
obj_t BgL_aux1761z00_861 = ((obj_t )BUNSPEC);
#line 14 "two.scm"
BgL_aux1761z00_861 = BgL_objz00_403; 
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 14 "two.scm"
bool_t BgL_test1762z00_862;
#line 14 "two.scm"
BgL_test1762z00_862 = 
#line 14 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1761z00_861); 
#line 14 "two.scm"
if(BgL_test1762z00_862)
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
BgL_auxz00_984 = 
#line 14 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1761z00_861)
#line 14 "two.scm"
; }  else 
#line 14 "two.scm"
{ /* two.scm 14 */
#line 14 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 14 "two.scm"
CNST_TABLE_REF(((long)3)), BGl_string1890z00zzonez00, BgL_aux1761z00_861, BGl_string1891z00zzonez00, 
#line 14 "two.scm"
BINT(((long)310))); 
#line 14 "two.scm"
exit( -1 );} } 
#line 14 "two.scm"
; } } 
#line 14 "two.scm"
; } 
#line 14 "two.scm"
BgL_arg1540z00_614 = 
#line 14 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_auxz00_984); } 
#line 14 "two.scm"
gluDeleteQuadric(BgL_arg1540z00_614); 
#line 14 "two.scm"
return BUNSPEC;} 
#line 14 "two.scm"
; } } 
#line 14 "two.scm"
}


/* _s-quadric-finalizer */
#line 1 "two.scm"
obj_t BGl__szd2quadriczd2finaliza7erza7zzonez00(obj_t BgL_envz00_738, obj_t BgL_objz00_739){ AN_OBJECT;
#line 13 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 13 "two.scm"
{ /* two.scm 13 */
#line 14 "two.scm"
return 
#line 14 "two.scm"
BGl_szd2quadriczd2finaliza7erza7zzonez00(BgL_objz00_739);} 
#line 14 "two.scm"
}


/* gen-s-quadric */
#line 1 "two.scm"
obj_t BGl_genzd2szd2quadricz00zzonez00(){ AN_OBJECT;
#line 16 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 16 "two.scm"
{ /* two.scm 16 */
#line 17 "two.scm"
{ /* two.scm 17 */
#line 17 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 17 "two.scm"
BgL_szd2quadriczd2_bglt BgL_valz00_615 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
GLUquadric * BgL_arg1541z00_616;
#line 8 "two.scm"
BgL_arg1541z00_616 = 
#line 8 "two.scm"
gluNewQuadric(); 
#line 8 "two.scm"
BgL_valz00_615 = 
#line 18 "two.scm"
BGl_makezd2szd2quadricz00zzonez00(BgL_arg1541z00_616); } 
#line 18 "two.scm"
; } 
#line 19 "two.scm"
BGl_registerzd2finaliza7erz12z67zzfinaliza7eza7(BGl_szd2quadriczd2finaliza7erzd2envz75zzonez00, 
#line 19 "two.scm"
(obj_t)(BgL_valz00_615)); 
#line 20 "two.scm"
return 
#line 20 "two.scm"
(obj_t)(BgL_valz00_615);} 
#line 20 "two.scm"
; } } 
#line 20 "two.scm"
}


/* our-draw */
#line 1 "two.scm"
obj_t BGl_ourzd2drawzd2zzonez00(){ AN_OBJECT;
#line 23 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 23 "two.scm"
{ /* two.scm 23 */
#line 25 "two.scm"
{ /* two.scm 25 */
#line 25 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 25 "two.scm"
double BgL_tz00_617;
#line 25 "two.scm"
BgL_tz00_617 = 
#line 25 "two.scm"
glfwGetTime(); 
#line 25 "two.scm"
{ /* two.scm 25 */
#line 25 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 25 "two.scm"
double BgL_field_of_viewz00_618;
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_arg1608z00_681 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
double BgL_arg1612z00_685;
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_arg1615z00_688 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_list1616z00_689 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_arg1617z00_690 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
BgL_arg1617z00_690 = 
#line 26 "two.scm"
MAKE_PAIR(BGl_real1892z00zzonez00, BNIL); 
#line 26 "two.scm"
BgL_list1616z00_689 = 
#line 26 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_tz00_617), BgL_arg1617z00_690); } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
BgL_arg1615z00_688 = 
#line 26 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1616z00_689); } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
BgL_arg1612z00_685 = 
#line 26 "two.scm"
BGl_sinz00zz__r4_numbers_6_5z00(BgL_arg1615z00_688); } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_list1613z00_686 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_arg1614z00_687 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
BgL_arg1614z00_687 = 
#line 26 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_arg1612z00_685), BNIL); 
#line 26 "two.scm"
BgL_list1613z00_686 = 
#line 26 "two.scm"
MAKE_PAIR(BGl_real1893z00zzonez00, BgL_arg1614z00_687); } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
BgL_arg1608z00_681 = 
#line 26 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1613z00_686); } 
#line 26 "two.scm"
; } } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_list1609z00_682 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_arg1610z00_683 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
BgL_arg1610z00_683 = 
#line 26 "two.scm"
MAKE_PAIR(BgL_arg1608z00_681, BNIL); 
#line 26 "two.scm"
BgL_list1609z00_682 = 
#line 26 "two.scm"
MAKE_PAIR(BGl_real1894z00zzonez00, BgL_arg1610z00_683); } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
obj_t BgL_auxz00_1012 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
obj_t BgL_aux1763z00_863 = ((obj_t )BUNSPEC);
#line 26 "two.scm"
BgL_aux1763z00_863 = 
#line 26 "two.scm"
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_list1609z00_682); 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
bool_t BgL_test1767z00_864;
#line 26 "two.scm"
BgL_test1767z00_864 = 
#line 26 "two.scm"
REALP(BgL_aux1763z00_863); 
#line 26 "two.scm"
if(BgL_test1767z00_864)
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
BgL_auxz00_1012 = BgL_aux1763z00_863
#line 26 "two.scm"
; }  else 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 26 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1895z00zzonez00, BgL_aux1763z00_863, BGl_string1891z00zzonez00, 
#line 26 "two.scm"
BINT(((long)563))); 
#line 26 "two.scm"
exit( -1 );} } 
#line 26 "two.scm"
; } } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
BgL_field_of_viewz00_618 = 
#line 26 "two.scm"
REAL_TO_DOUBLE(BgL_auxz00_1012); } } 
#line 26 "two.scm"
; } } 
#line 26 "two.scm"
; } 
#line 26 "two.scm"
{ /* two.scm 26 */
#line 26 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 26 "two.scm"
BgL_szd2quadriczd2_bglt BgL_quadricz00_619 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 27 "two.scm"
{ /* two.scm 27 */
#line 27 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 27 "two.scm"
obj_t BgL_aux1768z00_865 = ((obj_t )BUNSPEC);
#line 27 "two.scm"
BgL_aux1768z00_865 = 
#line 27 "two.scm"
BGl_genzd2szd2quadricz00zzonez00(); 
#line 27 "two.scm"
{ /* two.scm 27 */
#line 27 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 27 "two.scm"
bool_t BgL_test1773z00_866;
#line 27 "two.scm"
BgL_test1773z00_866 = 
#line 27 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1768z00_865); 
#line 27 "two.scm"
if(BgL_test1773z00_866)
#line 27 "two.scm"
{ /* two.scm 27 */
#line 27 "two.scm"
BgL_quadricz00_619 = 
#line 27 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1768z00_865); }  else 
#line 27 "two.scm"
{ /* two.scm 27 */
#line 27 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 27 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1890z00zzonez00, BgL_aux1768z00_865, BGl_string1891z00zzonez00, 
#line 27 "two.scm"
BINT(((long)627))); 
#line 27 "two.scm"
exit( -1 );} } 
#line 27 "two.scm"
; } } 
#line 27 "two.scm"
; } 
#line 27 "two.scm"
{ /* two.scm 27 */
#line 27 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 27 "two.scm"
double BgL_camera_xz00_620;
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
double BgL_arg1596z00_673;
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_arg1599z00_676 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_list1600z00_677 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_arg1604z00_679 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
BgL_arg1604z00_679 = 
#line 28 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_tz00_617), BNIL); 
#line 28 "two.scm"
BgL_list1600z00_677 = 
#line 28 "two.scm"
MAKE_PAIR(BGl_real1896z00zzonez00, BgL_arg1604z00_679); } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
BgL_arg1599z00_676 = 
#line 28 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1600z00_677); } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
BgL_arg1596z00_673 = 
#line 28 "two.scm"
BGl_cosz00zz__r4_numbers_6_5z00(BgL_arg1599z00_676); } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_list1597z00_674 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_arg1598z00_675 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
BgL_arg1598z00_675 = 
#line 28 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_arg1596z00_673), BNIL); 
#line 28 "two.scm"
BgL_list1597z00_674 = 
#line 28 "two.scm"
MAKE_PAIR(BGl_real1897z00zzonez00, BgL_arg1598z00_675); } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
obj_t BgL_auxz00_1037 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
obj_t BgL_aux1774z00_867 = ((obj_t )BUNSPEC);
#line 28 "two.scm"
BgL_aux1774z00_867 = 
#line 28 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1597z00_674); 
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
bool_t BgL_test1777z00_868;
#line 28 "two.scm"
BgL_test1777z00_868 = 
#line 28 "two.scm"
REALP(BgL_aux1774z00_867); 
#line 28 "two.scm"
if(BgL_test1777z00_868)
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
BgL_auxz00_1037 = BgL_aux1774z00_867
#line 28 "two.scm"
; }  else 
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 28 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1895z00zzonez00, BgL_aux1774z00_867, BGl_string1891z00zzonez00, 
#line 28 "two.scm"
BINT(((long)671))); 
#line 28 "two.scm"
exit( -1 );} } 
#line 28 "two.scm"
; } } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
BgL_camera_xz00_620 = 
#line 28 "two.scm"
REAL_TO_DOUBLE(BgL_auxz00_1037); } } 
#line 28 "two.scm"
; } } 
#line 28 "two.scm"
; } 
#line 28 "two.scm"
{ /* two.scm 28 */
#line 28 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 28 "two.scm"
double BgL_camera_za7za7_621;
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
double BgL_arg1588z00_665;
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_arg1591z00_668 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_list1592z00_669 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_arg1594z00_671 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
BgL_arg1594z00_671 = 
#line 29 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_tz00_617), BNIL); 
#line 29 "two.scm"
BgL_list1592z00_669 = 
#line 29 "two.scm"
MAKE_PAIR(BGl_real1896z00zzonez00, BgL_arg1594z00_671); } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
BgL_arg1591z00_668 = 
#line 29 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1592z00_669); } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
BgL_arg1588z00_665 = 
#line 29 "two.scm"
BGl_sinz00zz__r4_numbers_6_5z00(BgL_arg1591z00_668); } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_list1589z00_666 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_arg1590z00_667 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
BgL_arg1590z00_667 = 
#line 29 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_arg1588z00_665), BNIL); 
#line 29 "two.scm"
BgL_list1589z00_666 = 
#line 29 "two.scm"
MAKE_PAIR(BGl_real1897z00zzonez00, BgL_arg1590z00_667); } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
obj_t BgL_auxz00_1054 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
obj_t BgL_aux1778z00_869 = ((obj_t )BUNSPEC);
#line 29 "two.scm"
BgL_aux1778z00_869 = 
#line 29 "two.scm"
BGl_za2za2zz__r4_numbers_6_5z00(BgL_list1589z00_666); 
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
bool_t BgL_test1781z00_870;
#line 29 "two.scm"
BgL_test1781z00_870 = 
#line 29 "two.scm"
REALP(BgL_aux1778z00_869); 
#line 29 "two.scm"
if(BgL_test1781z00_870)
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
BgL_auxz00_1054 = BgL_aux1778z00_869
#line 29 "two.scm"
; }  else 
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 29 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1895z00zzonez00, BgL_aux1778z00_869, BGl_string1891z00zzonez00, 
#line 29 "two.scm"
BINT(((long)724))); 
#line 29 "two.scm"
exit( -1 );} } 
#line 29 "two.scm"
; } } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
BgL_camera_za7za7_621 = 
#line 29 "two.scm"
REAL_TO_DOUBLE(BgL_auxz00_1054); } } 
#line 29 "two.scm"
; } } 
#line 29 "two.scm"
; } 
#line 29 "two.scm"
{ /* two.scm 29 */
#line 29 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 29 "two.scm"
double BgL_camera_yz00_622;
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"
double BgL_arg1584z00_661;
#line 30 "two.scm"
BgL_arg1584z00_661 = 
#line 30 "two.scm"
BGl_sinz00zz__r4_numbers_6_5z00(
#line 30 "two.scm"
DOUBLE_TO_REAL(BgL_tz00_617)); 
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"
obj_t BgL_list1585z00_662 = ((obj_t )BUNSPEC);
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"
obj_t BgL_arg1586z00_663 = ((obj_t )BUNSPEC);
#line 30 "two.scm"
BgL_arg1586z00_663 = 
#line 30 "two.scm"
MAKE_PAIR(
DOUBLE_TO_REAL(BgL_arg1584z00_661), BNIL); 
#line 30 "two.scm"
BgL_list1585z00_662 = 
#line 30 "two.scm"
MAKE_PAIR(BGl_real1898z00zzonez00, BgL_arg1586z00_663); } 
#line 30 "two.scm"
; } 
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
obj_t BgL_auxz00_1068 = ((obj_t )BUNSPEC);
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"
obj_t BgL_aux1782z00_871 = ((obj_t )BUNSPEC);
#line 30 "two.scm"
BgL_aux1782z00_871 = 
#line 30 "two.scm"
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_list1585z00_662); 
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"
bool_t BgL_test1783z00_872;
#line 30 "two.scm"
BgL_test1783z00_872 = 
#line 30 "two.scm"
REALP(BgL_aux1782z00_871); 
#line 30 "two.scm"
if(BgL_test1783z00_872)
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
BgL_auxz00_1068 = BgL_aux1782z00_871
#line 30 "two.scm"
; }  else 
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 30 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1895z00zzonez00, BgL_aux1782z00_871, BGl_string1891z00zzonez00, 
#line 30 "two.scm"
BINT(((long)777))); 
#line 30 "two.scm"
exit( -1 );} } 
#line 30 "two.scm"
; } } 
#line 30 "two.scm"
; } 
#line 30 "two.scm"
BgL_camera_yz00_622 = 
#line 30 "two.scm"
REAL_TO_DOUBLE(BgL_auxz00_1068); } } 
#line 30 "two.scm"
; } } 
#line 30 "two.scm"
; } 
#line 30 "two.scm"
{ /* two.scm 30 */
#line 30 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 30 "two.scm"

#line 32 "two.scm"
glViewport(
#line 32 "two.scm"
(int)(((long)0)), 
#line 32 "two.scm"
(int)(((long)0)), 
#line 32 "two.scm"
(int)(((long)640)), 
#line 32 "two.scm"
(int)(((long)480))); BUNSPEC; 
#line 33 "two.scm"
glClearColor(
#line 33 "two.scm"
(float)(((double)0.0)), 
#line 33 "two.scm"
(float)(((double)0.0)), 
#line 33 "two.scm"
(float)(((double)0.0)), 
#line 33 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 34 "two.scm"
{ /* two.scm 34 */
#line 34 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 34 "two.scm"
long BgL_arg1542z00_623;
#line 34 "two.scm"
BgL_arg1542z00_623 = 
#line 34 "two.scm"
BGl_bitzd2orzd2zz__bitz00(GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT); 
#line 34 "two.scm"
glClear(
#line 34 "two.scm"
(unsigned int)(BgL_arg1542z00_623)); BUNSPEC; } 
#line 34 "two.scm"
; } 
#line 36 "two.scm"
glMatrixMode(
#line 36 "two.scm"
(unsigned int)(GL_PROJECTION)); BUNSPEC; 
#line 37 "two.scm"
glLoadIdentity(); BUNSPEC; 
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 38 "two.scm"
obj_t BgL_arg1543z00_624 = ((obj_t )BUNSPEC);
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 38 "two.scm"
obj_t BgL_list1546z00_627 = ((obj_t )BUNSPEC);
#line 38 "two.scm"
BgL_list1546z00_627 = 
#line 38 "two.scm"
MAKE_PAIR(
BINT(((long)480)), BNIL); 
#line 38 "two.scm"
BgL_arg1543z00_624 = 
#line 38 "two.scm"
BGl_zf2zf2zz__r4_numbers_6_5z00(
#line 38 "two.scm"
BINT(((long)640)), BgL_list1546z00_627); } 
#line 38 "two.scm"
; } 
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
GLdouble BgL_auxz00_1097;
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
obj_t BgL_auxz00_1098 = ((obj_t )BUNSPEC);
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 38 "two.scm"
obj_t BgL_aux1784z00_873 = ((obj_t )BUNSPEC);
#line 38 "two.scm"
BgL_aux1784z00_873 = BgL_arg1543z00_624; 
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 38 "two.scm"
bool_t BgL_test1785z00_874;
#line 38 "two.scm"
BgL_test1785z00_874 = 
#line 38 "two.scm"
REALP(BgL_aux1784z00_873); 
#line 38 "two.scm"
if(BgL_test1785z00_874)
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
BgL_auxz00_1098 = BgL_aux1784z00_873
#line 38 "two.scm"
; }  else 
#line 38 "two.scm"
{ /* two.scm 38 */
#line 38 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 38 "two.scm"
CNST_TABLE_REF(((long)4)), BGl_string1895z00zzonez00, BgL_aux1784z00_873, BGl_string1891z00zzonez00, 
#line 38 "two.scm"
BINT(((long)1052))); 
#line 38 "two.scm"
exit( -1 );} } 
#line 38 "two.scm"
; } } 
#line 38 "two.scm"
; } 
#line 38 "two.scm"
BgL_auxz00_1097 = 
#line 38 "two.scm"
REAL_TO_DOUBLE(BgL_auxz00_1098); } 
#line 38 "two.scm"
gluPerspective(BgL_field_of_viewz00_618, BgL_auxz00_1097, ((double)1.0), ((double)100.0)); } BUNSPEC; } 
#line 38 "two.scm"
; } 
#line 40 "two.scm"
glMatrixMode(
#line 40 "two.scm"
(unsigned int)(GL_MODELVIEW)); BUNSPEC; 
#line 41 "two.scm"
glLoadIdentity(); BUNSPEC; 
#line 42 "two.scm"
gluLookAt(BgL_camera_xz00_620, BgL_camera_yz00_622, BgL_camera_za7za7_621, ((double)0.0), ((double)0.0), ((double)0.0), ((double)0.0), ((double)1.0), ((double)0.0)); BUNSPEC; 
#line 43 "two.scm"
glEnable(
#line 43 "two.scm"
(unsigned int)(GL_DEPTH_TEST)); BUNSPEC; 
#line 44 "two.scm"
glDepthFunc(
#line 44 "two.scm"
(unsigned int)(GL_LEQUAL)); BUNSPEC; 
#line 46 "two.scm"
glColor3f(
#line 46 "two.scm"
(float)(((double)0.7)), 
#line 46 "two.scm"
(float)(((double)1.0)), 
#line 46 "two.scm"
(float)(((double)1.0))); BUNSPEC; 
#line 47 "two.scm"
glBegin(
#line 47 "two.scm"
(unsigned int)(GL_LINES)); BUNSPEC; 
#line 47 "two.scm"
{ 
#line 50 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 50 "two.scm"
float BgL_iz00_629;
#line 49 "two.scm"
BgL_iz00_629 = 
#line 49 "two.scm"
(float)(((double)-10.0)); 
#line 49 "two.scm"
BgL_zc3anonymousza31548za3twoze2scmza349ze3z61_630:
#line 49 "two.scm"
if(
#line 50 "two.scm"
BGl_ze3ze3zz__r4_numbers_6_5z00(
#line 50 "two.scm"
FLOAT_TO_REAL(BgL_iz00_629), BGl_real1899z00zzonez00, BNIL))
#line 49 "two.scm"
{ /* two.scm 49 */((long)1); }  else 
#line 49 "two.scm"
{ /* two.scm 49 */
#line 52 "two.scm"
glVertex3f(
#line 52 "two.scm"
(float)(((double)-10.0)), 
#line 52 "two.scm"
(float)(((double)0.0)), BgL_iz00_629); BUNSPEC; 
#line 53 "two.scm"
glVertex3f(
#line 53 "two.scm"
(float)(((double)10.0)), 
#line 53 "two.scm"
(float)(((double)0.0)), BgL_iz00_629); BUNSPEC; 
#line 54 "two.scm"
glVertex3f(BgL_iz00_629, 
#line 54 "two.scm"
(float)(((double)0.0)), 
#line 54 "two.scm"
(float)(((double)-10.0))); BUNSPEC; 
#line 55 "two.scm"
glVertex3f(BgL_iz00_629, 
#line 55 "two.scm"
(float)(((double)0.0)), 
#line 55 "two.scm"
(float)(((double)10.0))); BUNSPEC; 
#line 49 "two.scm"
{ /* two.scm 49 */
#line 49 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 49 "two.scm"
obj_t BgL_arg1550z00_632 = ((obj_t )BUNSPEC);
#line 49 "two.scm"
{ /* two.scm 49 */
#line 49 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 49 "two.scm"
obj_t BgL_list1551z00_633 = ((obj_t )BUNSPEC);
#line 49 "two.scm"
{ /* two.scm 49 */
#line 49 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 49 "two.scm"
obj_t BgL_arg1553z00_635 = ((obj_t )BUNSPEC);
#line 49 "two.scm"
BgL_arg1553z00_635 = 
#line 49 "two.scm"
MAKE_PAIR(
FLOAT_TO_REAL(BgL_iz00_629), BNIL); 
#line 49 "two.scm"
BgL_list1551z00_633 = 
#line 49 "two.scm"
MAKE_PAIR(
BINT(((long)1)), BgL_arg1553z00_635); } 
#line 49 "two.scm"
; } 
#line 49 "two.scm"
BgL_arg1550z00_632 = 
#line 49 "two.scm"
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_list1551z00_633); } 
#line 49 "two.scm"
; } 
#line 49 "two.scm"
{ 
#line 55 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 55 "two.scm"
float BgL_iz00_1141;
#line 55 "two.scm"
{ /* two.scm 55 */
#line 55 "two.scm"
obj_t BgL_auxz00_1142 = ((obj_t )BUNSPEC);
#line 55 "two.scm"
{ /* two.scm 55 */
#line 55 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 55 "two.scm"
obj_t BgL_aux1786z00_875 = ((obj_t )BUNSPEC);
#line 55 "two.scm"
BgL_aux1786z00_875 = BgL_arg1550z00_632; 
#line 55 "two.scm"
{ /* two.scm 55 */
#line 55 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 55 "two.scm"
bool_t BgL_test1787z00_876;
#line 55 "two.scm"
BgL_test1787z00_876 = 
#line 55 "two.scm"
REALP(BgL_aux1786z00_875); 
#line 55 "two.scm"
if(BgL_test1787z00_876)
#line 55 "two.scm"
{ /* two.scm 55 */
#line 55 "two.scm"
BgL_auxz00_1142 = BgL_aux1786z00_875
#line 55 "two.scm"
; }  else 
#line 55 "two.scm"
{ /* two.scm 55 */
#line 55 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 55 "two.scm"
CNST_TABLE_REF(((long)5)), BGl_string1900z00zzonez00, BgL_aux1786z00_875, BGl_string1891z00zzonez00, 
#line 55 "two.scm"
BINT(((long)1566))); 
#line 55 "two.scm"
exit( -1 );} } 
#line 55 "two.scm"
; } } 
#line 55 "two.scm"
; } 
#line 55 "two.scm"
BgL_iz00_1141 = 
#line 55 "two.scm"
REAL_TO_FLOAT(BgL_auxz00_1142); } 
#line 55 "two.scm"
BgL_iz00_629 = BgL_iz00_1141; 
#line 55 "two.scm"
goto BgL_zc3anonymousza31548za3twoze2scmza349ze3z61_630;} 
#line 55 "two.scm"
; } } 
#line 55 "two.scm"
; } } } 
#line 55 "two.scm"
; } 
#line 56 "two.scm"
glEnd(); BUNSPEC; 
#line 60 "two.scm"
glPushMatrix(); BUNSPEC; 
#line 61 "two.scm"
glRotatef(
#line 61 "two.scm"
(float)(((double)-90.0)), 
#line 61 "two.scm"
(float)(((double)1.0)), 
#line 61 "two.scm"
(float)(((double)0.0)), 
#line 61 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 62 "two.scm"
glColor3f(
#line 62 "two.scm"
(float)(((double)0.0)), 
#line 62 "two.scm"
(float)(((double)0.0)), 
#line 62 "two.scm"
(float)(((double)1.0))); BUNSPEC; 
#line 63 "two.scm"
{ /* two.scm 63 */
#line 63 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 63 "two.scm"
GLUquadric * BgL_arg1555z00_638;
#line 63 "two.scm"
BgL_arg1555z00_638 = 
#line 63 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_quadricz00_619); 
#line 63 "two.scm"
gluCylinder(BgL_arg1555z00_638, ((double)1.5), ((double)0.0), ((double)4.0), 
#line 63 "two.scm"
(int)(((long)30)), 
#line 63 "two.scm"
(int)(((long)30))); BUNSPEC; } 
#line 63 "two.scm"
; } 
#line 65 "two.scm"
glPopMatrix(); BUNSPEC; 
#line 68 "two.scm"
glColor3f(
#line 68 "two.scm"
(float)(((double)1.0)), 
#line 68 "two.scm"
(float)(((double)0.2)), 
#line 68 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 69 "two.scm"
glPushMatrix(); BUNSPEC; 
#line 70 "two.scm"
glTranslatef(
#line 70 "two.scm"
(float)(((double)-9.0)), 
#line 70 "two.scm"
(float)(((double)1.0)), 
#line 70 "two.scm"
(float)(((double)-9.0))); BUNSPEC; 
#line 71 "two.scm"
{ /* two.scm 71 */
#line 71 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 71 "two.scm"
GLUquadric * BgL_arg1561z00_644;
#line 71 "two.scm"
BgL_arg1561z00_644 = 
#line 71 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_quadricz00_619); 
#line 71 "two.scm"
gluSphere(BgL_arg1561z00_644, ((double)1.0), 
#line 71 "two.scm"
(int)(((long)30)), 
#line 71 "two.scm"
(int)(((long)30))); BUNSPEC; } 
#line 71 "two.scm"
; } 
#line 72 "two.scm"
glPopMatrix(); BUNSPEC; 
#line 74 "two.scm"
glColor3f(
#line 74 "two.scm"
(float)(((double)1.0)), 
#line 74 "two.scm"
(float)(((double)0.2)), 
#line 74 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 75 "two.scm"
glPushMatrix(); BUNSPEC; 
#line 76 "two.scm"
glTranslatef(
#line 76 "two.scm"
(float)(((double)9.0)), 
#line 76 "two.scm"
(float)(((double)1.0)), 
#line 76 "two.scm"
(float)(((double)-9.0))); BUNSPEC; 
#line 77 "two.scm"
{ /* two.scm 77 */
#line 77 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 77 "two.scm"
GLUquadric * BgL_arg1568z00_648;
#line 77 "two.scm"
BgL_arg1568z00_648 = 
#line 77 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_quadricz00_619); 
#line 77 "two.scm"
gluSphere(BgL_arg1568z00_648, ((double)1.0), 
#line 77 "two.scm"
(int)(((long)30)), 
#line 77 "two.scm"
(int)(((long)30))); BUNSPEC; } 
#line 77 "two.scm"
; } 
#line 78 "two.scm"
glPopMatrix(); BUNSPEC; 
#line 80 "two.scm"
glColor3f(
#line 80 "two.scm"
(float)(((double)1.0)), 
#line 80 "two.scm"
(float)(((double)0.2)), 
#line 80 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 81 "two.scm"
glPushMatrix(); BUNSPEC; 
#line 82 "two.scm"
glTranslatef(
#line 82 "two.scm"
(float)(((double)-9.0)), 
#line 82 "two.scm"
(float)(((double)1.0)), 
#line 82 "two.scm"
(float)(((double)9.0))); BUNSPEC; 
#line 83 "two.scm"
{ /* two.scm 83 */
#line 83 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 83 "two.scm"
GLUquadric * BgL_arg1574z00_652;
#line 83 "two.scm"
BgL_arg1574z00_652 = 
#line 83 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_quadricz00_619); 
#line 83 "two.scm"
gluSphere(BgL_arg1574z00_652, ((double)1.0), 
#line 83 "two.scm"
(int)(((long)30)), 
#line 83 "two.scm"
(int)(((long)30))); BUNSPEC; } 
#line 83 "two.scm"
; } 
#line 84 "two.scm"
glPopMatrix(); BUNSPEC; 
#line 86 "two.scm"
glColor3f(
#line 86 "two.scm"
(float)(((double)1.0)), 
#line 86 "two.scm"
(float)(((double)0.2)), 
#line 86 "two.scm"
(float)(((double)0.0))); BUNSPEC; 
#line 87 "two.scm"
glPushMatrix(); BUNSPEC; 
#line 88 "two.scm"
glTranslatef(
#line 88 "two.scm"
(float)(((double)9.0)), 
#line 88 "two.scm"
(float)(((double)1.0)), 
#line 88 "two.scm"
(float)(((double)9.0))); BUNSPEC; 
#line 89 "two.scm"
{ /* two.scm 89 */
#line 89 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 89 "two.scm"
GLUquadric * BgL_arg1578z00_656;
#line 89 "two.scm"
BgL_arg1578z00_656 = 
#line 89 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_quadricz00_619); 
#line 89 "two.scm"
gluSphere(BgL_arg1578z00_656, ((double)1.0), 
#line 89 "two.scm"
(int)(((long)30)), 
#line 89 "two.scm"
(int)(((long)30))); BUNSPEC; } 
#line 89 "two.scm"
; } 
#line 90 "two.scm"
glPopMatrix(); 
#line 90 "two.scm"
return BUNSPEC;} 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
; } } 
#line 90 "two.scm"
}


/* our-loop */
#line 1 "two.scm"
obj_t BGl_ourzd2loopzd2zzonez00(){ AN_OBJECT;
#line 96 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 96 "two.scm"
{ /* two.scm 96 */
#line 96 "two.scm"
{ 
#line 98 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 98 "two.scm"
obj_t BgL_countz00_692 = ((obj_t )BUNSPEC);
#line 98 "two.scm"
{ /* two.scm 98 */
#line 98 "two.scm"
long BgL_auxz00_1223;
#line 98 "two.scm"
BgL_countz00_692 = 
#line 98 "two.scm"
BINT(((long)0)); 
#line 98 "two.scm"
BgL_zc3anonymousza31619za3twoze2scmza398ze3z61_693:
#line 98 "two.scm"
if(
#line 98 "two.scm"
CBOOL(BGl_closez00zzonez00))
#line 98 "two.scm"
{ /* two.scm 98 */
#line 98 "two.scm"
BgL_auxz00_1223 = ((long)0)
#line 98 "two.scm"
; }  else 
#line 98 "two.scm"
{ /* two.scm 98 */
#line 100 "two.scm"
BGl_ourzd2drawzd2zzonez00(); 
#line 101 "two.scm"
glfwSwapBuffers(); BUNSPEC; 
#line 102 "two.scm"
{ /* two.scm 102 */
#line 102 "two.scm"
bool_t BgL_testz00_1228;
#line 102 "two.scm"
{ /* two.scm 102 */
#line 102 "two.scm"
bool_t BgL_testz00_1229;
#line 102 "two.scm"
{ /* two.scm 102 */
#line 102 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 102 "two.scm"
int BgL_arg1624z00_698;
#line 102 "two.scm"
BgL_arg1624z00_698 = 
#line 102 "two.scm"
glfwGetWindowParam(
#line 102 "two.scm"
(int)(GLFW_OPENED)); 
#line 102 "two.scm"
BgL_testz00_1229 = 
#line 102 "two.scm"
BGl_zd3zd3zz__r4_numbers_6_5z00(
#line 102 "two.scm"
BINT(BgL_arg1624z00_698), 
#line 102 "two.scm"
BINT(((long)0)), BNIL); } 
#line 102 "two.scm"
; } 
#line 102 "two.scm"
if(BgL_testz00_1229)
#line 102 "two.scm"
{ /* two.scm 102 */
#line 102 "two.scm"
BgL_testz00_1228 = ((bool_t)1)
#line 102 "two.scm"
; }  else 
#line 103 "two.scm"
{ /* two.scm 103 */
#line 103 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 103 "two.scm"
int BgL_arg1622z00_696;
#line 103 "two.scm"
BgL_arg1622z00_696 = 
#line 103 "two.scm"
glfwGetKey(GLFW_KEY_ESC); 
#line 102 "two.scm"
BgL_testz00_1228 = 
#line 103 "two.scm"
BGl_zd3zd3zz__r4_numbers_6_5z00(
#line 103 "two.scm"
BINT(GLFW_PRESS), 
#line 103 "two.scm"
BINT(BgL_arg1622z00_696), BNIL); } 
#line 103 "two.scm"
; } } 
#line 102 "two.scm"
if(BgL_testz00_1228)
#line 102 "two.scm"
{ /* two.scm 102 */
#line 104 "two.scm"
BGl_closez00zzonez00 = BTRUE; }  else 
#line 102 "two.scm"
{ /* two.scm 102 */BFALSE; } } 
#line 98 "two.scm"
{ /* two.scm 98 */
#line 98 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 98 "two.scm"
obj_t BgL_arg1627z00_701 = ((obj_t )BUNSPEC);
#line 98 "two.scm"
{ /* two.scm 98 */
#line 98 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 98 "two.scm"
obj_t BgL_list1628z00_702 = ((obj_t )BUNSPEC);
#line 98 "two.scm"
{ /* two.scm 98 */
#line 98 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 98 "two.scm"
obj_t BgL_arg1630z00_704 = ((obj_t )BUNSPEC);
#line 98 "two.scm"
BgL_arg1630z00_704 = 
#line 98 "two.scm"
MAKE_PAIR(BgL_countz00_692, BNIL); 
#line 98 "two.scm"
BgL_list1628z00_702 = 
#line 98 "two.scm"
MAKE_PAIR(
BINT(((long)1)), BgL_arg1630z00_704); } 
#line 98 "two.scm"
; } 
#line 98 "two.scm"
BgL_arg1627z00_701 = 
#line 98 "two.scm"
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_list1628z00_702); } 
#line 98 "two.scm"
; } 
#line 98 "two.scm"
{ 
#line 102 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 102 "two.scm"
obj_t BgL_countz00_1243 = ((obj_t )BUNSPEC);
#line 102 "two.scm"
BgL_countz00_1243 = BgL_arg1627z00_701; 
#line 102 "two.scm"
BgL_countz00_692 = BgL_countz00_1243; 
#line 102 "two.scm"
goto BgL_zc3anonymousza31619za3twoze2scmza398ze3z61_693;} 
#line 102 "two.scm"
; } } 
#line 102 "two.scm"
; } } 
#line 98 "two.scm"
return 
#line 98 "two.scm"
BINT(BgL_auxz00_1223);} } 
#line 98 "two.scm"
; } } 
#line 98 "two.scm"
}


/* main */
#line 1 "two.scm"
BGL_EXPORTED_DEF obj_t BGl_mainz00zzonez00(obj_t BgL_argcz00_404){ AN_OBJECT;
#line 105 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 105 "two.scm"
{ /* two.scm 105 */
#line 107 "two.scm"
glfwInit(); 
#line 108 "two.scm"
glfwOpenWindow(
#line 108 "two.scm"
(int)(((long)640)), 
#line 108 "two.scm"
(int)(((long)480)), 
#line 108 "two.scm"
(int)(((long)8)), 
#line 108 "two.scm"
(int)(((long)8)), 
#line 108 "two.scm"
(int)(((long)8)), 
#line 108 "two.scm"
(int)(((long)8)), 
#line 108 "two.scm"
(int)(((long)24)), 
#line 108 "two.scm"
(int)(((long)0)), 
#line 108 "two.scm"
(int)(GLFW_WINDOW)); 
#line 109 "two.scm"
BGl_ourzd2loopzd2zzonez00(); 
#line 110 "two.scm"
glfwTerminate(); 
#line 110 "two.scm"
return BUNSPEC;} 
#line 110 "two.scm"
}


/* _main */
#line 1 "two.scm"
obj_t BGl__mainz00zzonez00(obj_t BgL_envz00_740, obj_t BgL_argcz00_741){ AN_OBJECT;
#line 105 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 105 "two.scm"
{ /* two.scm 105 */
#line 110 "two.scm"
return 
#line 110 "two.scm"
BGl_mainz00zzonez00(BgL_argcz00_741);} 
#line 110 "two.scm"
}


/* object-init */
#line 1 "two.scm"
obj_t BGl_objectzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_arg1631z00_706 = ((obj_t )BUNSPEC);obj_t BgL_arg1632z00_707 = ((obj_t )BUNSPEC);obj_t BgL_arg1633z00_708 = ((obj_t )BUNSPEC);obj_t BgL_arg1634z00_709 = ((obj_t )BUNSPEC);obj_t BgL_arg1636z00_711 = ((obj_t )BUNSPEC);obj_t BgL_arg1637z00_712 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_arg1631z00_706 = 
#line 7 "two.scm"
CNST_TABLE_REF(((long)6)); 
#line 7 "two.scm"
BgL_arg1632z00_707 = BGl_objectz00zz__objectz00; 
#line 7 "two.scm"
BgL_arg1633z00_708 = BGl_makezd2szd2quadriczd2envzd2zzonez00; 
#line 7 "two.scm"
BgL_arg1634z00_709 = BGl_z52allocatezd2szd2quadriczd2envz80zzonez00; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_arg1638z00_713 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_arg1638z00_713 = 
#line 7 "two.scm"
BGl_makezd2classzd2fieldz00zz__objectz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)7)), BGl_szd2quadriczd2gluzd2quadriczd2envz00zzonez00, BGl_szd2quadriczd2gluzd2quadriczd2setz12zd2envzc0zzonez00, BUNSPEC, ((bool_t)0), BFALSE, 
#line 7 "two.scm"
CNST_TABLE_REF(((long)8))); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_list1639z00_714 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_list1639z00_714 = 
#line 7 "two.scm"
MAKE_PAIR(BgL_arg1638z00_713, BNIL); 
#line 7 "two.scm"
BgL_arg1636z00_711 = 
#line 7 "two.scm"
BGl_listz00zz__r4_pairs_and_lists_6_3z00(BgL_list1639z00_714); } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BgL_arg1637z00_712 = 
#line 7 "two.scm"
BGl_vectorz00zz__r4_vectors_6_8z00(BNIL); 
#line 7 "two.scm"
BGl_szd2quadriczd2zzonez00 = 
#line 7 "two.scm"
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg1631z00_706, BgL_arg1632z00_707, ((bool_t)0), BgL_arg1633z00_708, BgL_arg1634z00_709, BGl_szd2quadriczd2nilzd2envzd2zzonez00, BGl_szd2quadriczf3zd2envzf3zzonez00, ((long)269828396), BgL_arg1636z00_711, BFALSE, BgL_arg1637z00_712); } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
return ( 
#line 7 "two.scm"
BGl_z52thezd2szd2quadriczd2nilz80zzonez00 = BUNSPEC, BUNSPEC) ;} 
#line 7 "two.scm"
}


/* s-quadric? */
#line 1 "two.scm"
bool_t BGl_szd2quadriczf3z21zzonez00(obj_t BgL_obj1371z00_405){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
return 
#line 7 "two.scm"
BGl_iszd2azf3z21zz__objectz00(BgL_obj1371z00_405, BGl_szd2quadriczd2zzonez00);} 
#line 7 "two.scm"
}


/* _s-quadric? */
#line 1 "two.scm"
obj_t BGl__szd2quadriczf3z21zzonez00(obj_t BgL_envz00_751, obj_t BgL_obj1371z00_752){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
return 
#line 7 "two.scm"
BBOOL(
BGl_szd2quadriczf3z21zzonez00(BgL_obj1371z00_752));} 
#line 7 "two.scm"
}


/* make-s-quadric */
#line 1 "two.scm"
BgL_szd2quadriczd2_bglt BGl_makezd2szd2quadricz00zzonez00(GLUquadric * BgL_gluzd2quadric1356zd2_409){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_new1357z00_716 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
BgL_new1357z00_716 = 
#line 7 "two.scm"
BGl_z52allocatezd2szd2quadricz52zzonez00(); 
#line 7 "two.scm"
BGl_fillzd2szd2quadricz12z12zzonez00(BgL_new1357z00_716, BgL_gluzd2quadric1356zd2_409); 
#line 7 "two.scm"
return BgL_new1357z00_716;} 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* _make-s-quadric */
#line 1 "two.scm"
obj_t BGl__makezd2szd2quadricz00zzonez00(obj_t BgL_envz00_742, obj_t BgL_gluzd2quadric1356zd2_743){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_1273 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
GLUquadric * BgL_auxz00_1274;
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
obj_t BgL_auxz00_1275 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1790z00_879 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1788z00_877 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1788z00_877 = BgL_gluzd2quadric1356zd2_743; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1789z00_878;
#line 7 "two.scm"
BgL_test1789z00_878 = 
#line 7 "two.scm"
FOREIGNP(BgL_aux1788z00_877); 
#line 7 "two.scm"
if(BgL_test1789z00_878)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_aux1790z00_879 = BgL_aux1788z00_877; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)9)), BGl_string1901z00zzonez00, BgL_aux1788z00_877, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1806z00_880;
#line 7 "two.scm"
BgL_test1806z00_880 = 
#line 7 "two.scm"
BGl_szd2GLUquadricza2zf3z83zzonez00(BgL_aux1790z00_879); 
#line 7 "two.scm"
if(BgL_test1806z00_880)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_auxz00_1275 = BgL_aux1790z00_879
#line 7 "two.scm"
; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)9)), BGl_string1901z00zzonez00, BgL_aux1790z00_879, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BgL_auxz00_1274 = 
#line 7 "two.scm"
(struct GLUquadric *)FOREIGN_TO_COBJ(BgL_auxz00_1275); } 
#line 7 "two.scm"
BgL_auxz00_1273 = 
#line 7 "two.scm"
BGl_makezd2szd2quadricz00zzonez00(BgL_auxz00_1274); } 
#line 7 "two.scm"
return 
#line 7 "two.scm"
(obj_t)(BgL_auxz00_1273);} } 
#line 7 "two.scm"
}


/* fill-s-quadric! */
#line 1 "two.scm"
BgL_szd2quadriczd2_bglt BGl_fillzd2szd2quadricz12z12zzonez00(BgL_szd2quadriczd2_bglt BgL_new1360z00_410, GLUquadric * BgL_gluzd2quadric1359zd2_411){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
GLUquadric * BgL_gluzd2quadric1359zd2_717;
#line 7 "two.scm"
BgL_gluzd2quadric1359zd2_717 = BgL_gluzd2quadric1359zd2_411; 
#line 7 "two.scm"
((((BgL_szd2quadriczd2_bglt)CREF(BgL_new1360z00_410))->BgL_gluzd2quadriczd2) = ((GLUquadric *)BgL_gluzd2quadric1359zd2_717), BUNSPEC); 
#line 7 "two.scm"
return BgL_new1360z00_410;} 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* %allocate-s-quadric */
#line 1 "two.scm"
BgL_szd2quadriczd2_bglt BGl_z52allocatezd2szd2quadricz52zzonez00(){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_new1363z00_718 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
BgL_new1363z00_718 = 
#line 7 "two.scm"
((BgL_szd2quadriczd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_szd2quadriczd2_bgl) ))); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
long BgL_arg1641z00_719;
#line 7 "two.scm"
BgL_arg1641z00_719 = 
#line 7 "two.scm"
BGl_classzd2numzd2zz__objectz00(BGl_szd2quadriczd2zzonez00); 
#line 7 "two.scm"
BGl_objectzd2classzd2numzd2setz12zc0zz__objectz00(
#line 7 "two.scm"
(BgL_objectz00_bglt)(BgL_new1363z00_718), BgL_arg1641z00_719); } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_objectz00_bglt BgL_auxz00_1296 = ((BgL_objectz00_bglt )BUNSPEC);
#line 7 "two.scm"
BgL_auxz00_1296 = 
#line 7 "two.scm"
(BgL_objectz00_bglt)(BgL_new1363z00_718); 
#line 7 "two.scm"
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1296, BFALSE); } 
#line 7 "two.scm"
return BgL_new1363z00_718;} 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* _%allocate-s-quadric */
#line 1 "two.scm"
obj_t BGl__z52allocatezd2szd2quadricz52zzonez00(obj_t BgL_envz00_744){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
return 
#line 7 "two.scm"
(obj_t)(
BGl_z52allocatezd2szd2quadricz52zzonez00());} 
#line 7 "two.scm"
}


/* s-quadric-nil */
#line 1 "two.scm"
BgL_szd2quadriczd2_bglt BGl_szd2quadriczd2nilz00zzonez00(){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
if(
#line 7 "two.scm"
BGl_eqzf3zf3zz__r4_equivalence_6_2z00(BGl_z52thezd2szd2quadriczd2nilz80zzonez00, BUNSPEC))
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_z52thezd2szd2quadriczd2nilz80zzonez00 = 
#line 7 "two.scm"
(obj_t)(
BGl_z52allocatezd2szd2quadricz52zzonez00()); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
GLUquadric * BgL_arg1644z00_721;
#line 7 "two.scm"
BgL_arg1644z00_721 = 
#line 7 "two.scm"
0L; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_1306 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_1307 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1807z00_881 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1807z00_881 = BGl_z52thezd2szd2quadriczd2nilz80zzonez00; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1808z00_882;
#line 7 "two.scm"
BgL_test1808z00_882 = 
#line 7 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1807z00_881); 
#line 7 "two.scm"
if(BgL_test1808z00_882)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_auxz00_1307 = 
#line 7 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1807z00_881)
#line 7 "two.scm"
; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)10)), BGl_string1890z00zzonez00, BgL_aux1807z00_881, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BgL_auxz00_1306 = 
#line 7 "two.scm"
BGl_fillzd2szd2quadricz12z12zzonez00(BgL_auxz00_1307, BgL_arg1644z00_721); } 
#line 7 "two.scm"
(obj_t)(BgL_auxz00_1306); } } 
#line 7 "two.scm"
; } }  else 
#line 7 "two.scm"
{ /* two.scm 7 */BFALSE; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1809z00_883 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1809z00_883 = BGl_z52thezd2szd2quadriczd2nilz80zzonez00; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1810z00_884;
#line 7 "two.scm"
BgL_test1810z00_884 = 
#line 7 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1809z00_883); 
#line 7 "two.scm"
if(BgL_test1810z00_884)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
return 
#line 7 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1809z00_883);}  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)10)), BGl_string1890z00zzonez00, BgL_aux1809z00_883, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* _s-quadric-nil */
#line 1 "two.scm"
obj_t BGl__szd2quadriczd2nilz00zzonez00(obj_t BgL_envz00_750){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
return 
#line 7 "two.scm"
(obj_t)(
BGl_szd2quadriczd2nilz00zzonez00());} 
#line 7 "two.scm"
}


/* s-quadric-glu-quadric-set! */
#line 1 "two.scm"
obj_t BGl_szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00(BgL_szd2quadriczd2_bglt BgL_obj1355z00_412, GLUquadric * BgL_val1354z00_413){ AN_OBJECT;
#line 8 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
return 
#line 8 "two.scm"
((((BgL_szd2quadriczd2_bglt)CREF(BgL_obj1355z00_412))->BgL_gluzd2quadriczd2) = ((GLUquadric *)BgL_val1354z00_413), BUNSPEC);} 
#line 8 "two.scm"
}


/* _s-quadric-glu-quadric-set! */
#line 1 "two.scm"
obj_t BGl__szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00(obj_t BgL_envz00_747, obj_t BgL_obj1355z00_748, obj_t BgL_val1354z00_749){ AN_OBJECT;
#line 8 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
GLUquadric * BgL_auxz00_1335;BgL_szd2quadriczd2_bglt BgL_auxz00_1327 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
obj_t BgL_auxz00_1336 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
obj_t BgL_aux1815z00_889 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
obj_t BgL_aux1813z00_887 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
BgL_aux1813z00_887 = BgL_val1354z00_749; 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
bool_t BgL_test1814z00_888;
#line 8 "two.scm"
BgL_test1814z00_888 = 
#line 8 "two.scm"
FOREIGNP(BgL_aux1813z00_887); 
#line 8 "two.scm"
if(BgL_test1814z00_888)
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BgL_aux1815z00_889 = BgL_aux1813z00_887; }  else 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 8 "two.scm"
CNST_TABLE_REF(((long)11)), BGl_string1901z00zzonez00, BgL_aux1813z00_887, BGl_string1891z00zzonez00, 
#line 8 "two.scm"
BINT(((long)140))); 
#line 8 "two.scm"
exit( -1 );} } 
#line 8 "two.scm"
; } } 
#line 8 "two.scm"
; } 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
bool_t BgL_test1816z00_890;
#line 8 "two.scm"
BgL_test1816z00_890 = 
#line 8 "two.scm"
BGl_szd2GLUquadricza2zf3z83zzonez00(BgL_aux1815z00_889); 
#line 8 "two.scm"
if(BgL_test1816z00_890)
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BgL_auxz00_1336 = BgL_aux1815z00_889
#line 8 "two.scm"
; }  else 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 8 "two.scm"
CNST_TABLE_REF(((long)11)), BGl_string1901z00zzonez00, BgL_aux1815z00_889, BGl_string1891z00zzonez00, 
#line 8 "two.scm"
BINT(((long)140))); 
#line 8 "two.scm"
exit( -1 );} } 
#line 8 "two.scm"
; } } 
#line 8 "two.scm"
; } 
#line 8 "two.scm"
BgL_auxz00_1335 = 
#line 8 "two.scm"
(struct GLUquadric *)FOREIGN_TO_COBJ(BgL_auxz00_1336); } 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
obj_t BgL_aux1811z00_885 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
BgL_aux1811z00_885 = BgL_obj1355z00_748; 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
bool_t BgL_test1812z00_886;
#line 8 "two.scm"
BgL_test1812z00_886 = 
#line 8 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1811z00_885); 
#line 8 "two.scm"
if(BgL_test1812z00_886)
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BgL_auxz00_1327 = 
#line 8 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1811z00_885)
#line 8 "two.scm"
; }  else 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 8 "two.scm"
CNST_TABLE_REF(((long)11)), BGl_string1890z00zzonez00, BgL_aux1811z00_885, BGl_string1891z00zzonez00, 
#line 8 "two.scm"
BINT(((long)140))); 
#line 8 "two.scm"
exit( -1 );} } 
#line 8 "two.scm"
; } } 
#line 8 "two.scm"
; } 
#line 8 "two.scm"
return 
#line 8 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2setz12z12zzonez00(BgL_auxz00_1327, BgL_auxz00_1335);} } 
#line 8 "two.scm"
}


/* s-quadric-glu-quadric */
#line 1 "two.scm"
GLUquadric * BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_szd2quadriczd2_bglt BgL_obj1353z00_414){ AN_OBJECT;
#line 8 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
return 
#line 8 "two.scm"
(((BgL_szd2quadriczd2_bglt)CREF(BgL_obj1353z00_414))->BgL_gluzd2quadriczd2);} 
#line 8 "two.scm"
}


/* _s-quadric-glu-quadric */
#line 1 "two.scm"
obj_t BGl__szd2quadriczd2gluzd2quadriczd2zzonez00(obj_t BgL_envz00_745, obj_t BgL_obj1353z00_746){ AN_OBJECT;
#line 8 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
struct GLUquadric * BgL_xz00_893;
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_1352 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
obj_t BgL_aux1817z00_891 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
BgL_aux1817z00_891 = BgL_obj1353z00_746; 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 8 "two.scm"
bool_t BgL_test1818z00_892;
#line 8 "two.scm"
BgL_test1818z00_892 = 
#line 8 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1817z00_891); 
#line 8 "two.scm"
if(BgL_test1818z00_892)
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BgL_auxz00_1352 = 
#line 8 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1817z00_891)
#line 8 "two.scm"
; }  else 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 8 "two.scm"
CNST_TABLE_REF(((long)12)), BGl_string1890z00zzonez00, BgL_aux1817z00_891, BGl_string1891z00zzonez00, 
#line 8 "two.scm"
BINT(((long)140))); 
#line 8 "two.scm"
exit( -1 );} } 
#line 8 "two.scm"
; } } 
#line 8 "two.scm"
; } 
#line 8 "two.scm"
BgL_xz00_893 = 
#line 8 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_auxz00_1352); } 
#line 8 "two.scm"
{ /* two.scm 8 */
#line 8 "two.scm"
obj_t BgL_auxz00_1361 = ((obj_t )BUNSPEC);
#line 8 "two.scm"
BgL_auxz00_1361 = 
#line 8 "two.scm"
CNST_TABLE_REF(((long)2)); 
#line 8 "two.scm"
return 
#line 8 "two.scm"
cobj_to_foreign(BgL_auxz00_1361, BgL_xz00_893);} } 
#line 8 "two.scm"
; } } 
#line 8 "two.scm"
}


/* generic-init */
#line 1 "two.scm"
obj_t BGl_genericzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
return BUNSPEC;} 
#line 1 "two.scm"
}


/* method-init */
#line 1 "two.scm"
obj_t BGl_methodzd2initzd2zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_objectzd2ze3structzd2szd2qua1376z31_754 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_objectzd2ze3structzd2szd2qua1376z31_754 = BGl_proc1902z00zzonez00; 
#line 1 "two.scm"
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_szd2quadriczd2zzonez00, BgL_objectzd2ze3structzd2szd2qua1376z31_754); } 
#line 1 "two.scm"
; } 
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 1 "two.scm"
obj_t BgL_structzb2objectzd2ze3objec1378z83_753 = ((obj_t )BUNSPEC);
#line 1 "two.scm"
BgL_structzb2objectzd2ze3objec1378z83_753 = BGl_proc1903z00zzonez00; 
#line 1 "two.scm"
return 
#line 1 "two.scm"
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_szd2quadriczd2zzonez00, BgL_structzb2objectzd2ze3objec1378z83_753);} 
#line 1 "two.scm"
; } } 
#line 1 "two.scm"
}


/* struct+object->objec1378 */
#line 1 "two.scm"
obj_t BGl_structzb2objectzd2ze3objec1378z83zzonez00(obj_t BgL_envz00_755, obj_t BgL_oz00_756, obj_t BgL_sz00_757){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ 
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_oz00_730 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);obj_t BgL_sz00_731 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_auxz00_1366 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1823z00_898 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1823z00_898 = BgL_oz00_756; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1824z00_899;
#line 7 "two.scm"
BgL_test1824z00_899 = 
#line 7 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1823z00_898); 
#line 7 "two.scm"
if(BgL_test1824z00_899)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_oz00_730 = 
#line 7 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1823z00_898); }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)13)), BGl_string1890z00zzonez00, BgL_aux1823z00_898, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1825z00_900 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1825z00_900 = BgL_sz00_757; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1826z00_901;
#line 7 "two.scm"
BgL_test1826z00_901 = 
#line 7 "two.scm"
STRUCTP(BgL_aux1825z00_900); 
#line 7 "two.scm"
if(BgL_test1826z00_901)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_sz00_731 = BgL_aux1825z00_900; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)13)), BGl_string1904z00zzonez00, BgL_aux1825z00_900, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_arg1651z00_734 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_arg1651z00_734 = 
#line 7 "two.scm"
BGl_structzd2refzd2zz__structurez00(BgL_sz00_731, 
#line 7 "two.scm"
(int)(((long)0))); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_objectz00_bglt BgL_auxz00_1369 = ((BgL_objectz00_bglt )BUNSPEC);
#line 7 "two.scm"
BgL_auxz00_1369 = 
#line 7 "two.scm"
(BgL_objectz00_bglt)(BgL_oz00_730); 
#line 7 "two.scm"
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1369, BgL_arg1651z00_734); } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
GLUquadric * BgL_v1369z00_735;
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
obj_t BgL_auxz00_1372 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1821z00_896 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1819z00_894 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1819z00_894 = 
#line 7 "two.scm"
BGl_structzd2refzd2zz__structurez00(BgL_sz00_731, 
#line 7 "two.scm"
(int)(((long)1))); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1820z00_895;
#line 7 "two.scm"
BgL_test1820z00_895 = 
#line 7 "two.scm"
FOREIGNP(BgL_aux1819z00_894); 
#line 7 "two.scm"
if(BgL_test1820z00_895)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_aux1821z00_896 = BgL_aux1819z00_894; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)13)), BGl_string1901z00zzonez00, BgL_aux1819z00_894, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1822z00_897;
#line 7 "two.scm"
BgL_test1822z00_897 = 
#line 7 "two.scm"
BGl_szd2GLUquadricza2zf3z83zzonez00(BgL_aux1821z00_896); 
#line 7 "two.scm"
if(BgL_test1822z00_897)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_auxz00_1372 = BgL_aux1821z00_896
#line 7 "two.scm"
; }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)13)), BGl_string1901z00zzonez00, BgL_aux1821z00_896, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BgL_v1369z00_735 = 
#line 7 "two.scm"
(struct GLUquadric *)FOREIGN_TO_COBJ(BgL_auxz00_1372); } 
#line 7 "two.scm"
((((BgL_szd2quadriczd2_bglt)CREF(BgL_oz00_730))->BgL_gluzd2quadriczd2) = ((GLUquadric *)BgL_v1369z00_735), BUNSPEC); } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BgL_auxz00_1366 = BgL_oz00_730; 
#line 7 "two.scm"
return 
#line 7 "two.scm"
(obj_t)(BgL_auxz00_1366);} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* object->struct-s-qua1376 */
#line 1 "two.scm"
obj_t BGl_objectzd2ze3structzd2szd2qua1376z31zzonez00(obj_t BgL_envz00_758, obj_t BgL_obj1365z00_759){ AN_OBJECT;
#line 7 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
{ 
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
BgL_szd2quadriczd2_bglt BgL_obj1365z00_722 = ((BgL_szd2quadriczd2_bglt )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_aux1827z00_903 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_aux1827z00_903 = BgL_obj1365z00_759; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
bool_t BgL_test1828z00_904;
#line 7 "two.scm"
BgL_test1828z00_904 = 
#line 7 "two.scm"
BGl_szd2quadriczf3z21zzonez00(BgL_aux1827z00_903); 
#line 7 "two.scm"
if(BgL_test1828z00_904)
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BgL_obj1365z00_722 = 
#line 7 "two.scm"
(BgL_szd2quadriczd2_bglt)(BgL_aux1827z00_903); }  else 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)14)), BGl_string1890z00zzonez00, BgL_aux1827z00_903, BGl_string1891z00zzonez00, 
#line 7 "two.scm"
BINT(((long)110))); 
#line 7 "two.scm"
exit( -1 );} } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
obj_t BgL_res1366z00_725 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_res1366z00_725 = 
#line 7 "two.scm"
BGl_makezd2structzd2zz__structurez00(
#line 7 "two.scm"
CNST_TABLE_REF(((long)6)), 
#line 7 "two.scm"
(int)(((long)2)), BUNSPEC); 
#line 7 "two.scm"
BGl_structzd2setz12zc0zz__structurez00(BgL_res1366z00_725, 
#line 7 "two.scm"
(int)(((long)0)), BFALSE); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
GLUquadric * BgL_arg1647z00_727;
#line 7 "two.scm"
BgL_arg1647z00_727 = 
#line 7 "two.scm"
BGl_szd2quadriczd2gluzd2quadriczd2zzonez00(BgL_obj1365z00_722); 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
obj_t BgL_auxz00_1409 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { 
#line 7 "two.scm"
struct GLUquadric * BgL_xz00_902;
#line 7 "two.scm"
BgL_xz00_902 = BgL_arg1647z00_727; 
#line 7 "two.scm"
{ /* two.scm 7 */
#line 7 "two.scm"
obj_t BgL_auxz00_1411 = ((obj_t )BUNSPEC);
#line 7 "two.scm"
BgL_auxz00_1411 = 
#line 7 "two.scm"
CNST_TABLE_REF(((long)2)); 
#line 7 "two.scm"
BgL_auxz00_1409 = 
#line 7 "two.scm"
cobj_to_foreign(BgL_auxz00_1411, BgL_xz00_902); } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
BGl_structzd2setz12zc0zz__structurez00(BgL_res1366z00_725, 
#line 7 "two.scm"
(int)(((long)1)), BgL_auxz00_1409); } } 
#line 7 "two.scm"
; } 
#line 7 "two.scm"
return BgL_res1366z00_725;} 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
; } } 
#line 7 "two.scm"
}


/* imported-modules-init */
#line 1 "two.scm"
obj_t BGl_importedzd2moduleszd2initz00zzonez00(){ AN_OBJECT;
#line 1 "two.scm"
{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */
#line 1 "two.scm"
{ /* two.scm 1 */
#line 1 "two.scm"
return 
#line 1 "two.scm"
BGl_modulezd2initializa7ationz75zzfinaliza7eza7(((long)478421108), 
#line 1 "two.scm"
BSTRING_TO_STRING(BGl_string1905z00zzonez00));} 
#line 1 "two.scm"
}
#ifdef __cplusplus
}
#endif
